home *** CD-ROM | disk | FTP | other *** search
/ GameStar 1998 November (Bonus) / GAMESTAR11B.ISO / ENCYC99 / MM / T620266A.DCR / Scripts_11_movie script.ls < prev    next >
Encoding:
Text File  |  1998-06-29  |  1.3 KB  |  42 lines
  1. global cursorGod, LabelGod, layerList, ScrollBar, infoBox
  2.  
  3. on startMovie
  4.   set the alertHook to new(script "theAlertHook")
  5.   set thestagewidth to the stageRight - the stageLeft
  6.   set thestageheight to the stageBottom - the stageTop
  7.   set sendThis to "window size: [" & thestagewidth & "], [" & thestageheight & "]"
  8.   sendoff(sendThis)
  9.   set layerList to []
  10.   set layerNames to value(the text of member "layerNames")
  11.   repeat with i in layerNames
  12.     set defText to the text of member (i && "Definition")
  13.     set layerDef to [:]
  14.     do("set layerDef to " & defText)
  15.     add(layerList, new(script "Class Layer", layerDef))
  16.   end repeat
  17.   set labelSprite to 36
  18.   set LabelGod to new(script "Class LabelGod", labelSprite)
  19.   set bgSprite to 5
  20.   set upSprite to 6
  21.   set downSprite to 7
  22.   set grabberSprite to 8
  23.   set scrolledSprite to 2
  24.   set scrolledLineHeight to 13
  25.   set ScrollBar to new(script "Class ScrollBar", "light", bgSprite, upSprite, downSprite, grabberSprite, scrolledSprite, scrolledLineHeight)
  26.   set cursorGod to new(script "Class CursorGod")
  27.   subscribe(ScrollBar, cursorGod)
  28.   set infoBox to new(script "Class InfoBox", ScrollBar)
  29.   repeat with i in layerList
  30.     linkUp(i, LabelGod, infoBox)
  31.     subscribe(i, cursorGod)
  32.   end repeat
  33. end
  34.  
  35. on idle
  36.   mouseCheck(cursorGod)
  37. end
  38.  
  39. on EvalScript xString
  40.   nothing()
  41. end
  42.